home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / ActiveX Controlls / XP Suite / DATA1.CAB / XP_Balloons_Sample_Files / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2003-04-24  |  6.7 KB  |  207 lines
  1. VERSION 5.00
  2. Object = "{CC53F32C-AE9E-4F2E-BC69-7547A3292F55}#1.0#0"; "ciaXPBalloons.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   4755
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   8535
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4755
  11.    ScaleWidth      =   8535
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin ciaXPBalloons.BalloonMessage BalloonMessage1 
  14.       Left            =   3420
  15.       Top             =   1170
  16.       _ExtentX        =   556
  17.       _ExtentY        =   556
  18.       CaptionBackColor=   65535
  19.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  20.          Name            =   "MS Sans Serif"
  21.          Size            =   8.25
  22.          Charset         =   0
  23.          Weight          =   400
  24.          Underline       =   0   'False
  25.          Italic          =   0   'False
  26.          Strikethrough   =   0   'False
  27.       EndProperty
  28.       PlaySoundEnter  =   0   'False
  29.       PlaySoundExit   =   0   'False
  30.       SoundEnter      =   ""
  31.       SoundExit       =   ""
  32.       ButtonSoundOver =   ""
  33.       ButtonSoundClick=   ""
  34.    End
  35.    Begin ciaXPBalloons.BalloonTip BalloonTip1 
  36.       Left            =   3060
  37.       Top             =   1185
  38.       _ExtentX        =   556
  39.       _ExtentY        =   556
  40.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  41.          Name            =   "MS Sans Serif"
  42.          Size            =   8.25
  43.          Charset         =   0
  44.          Weight          =   400
  45.          Underline       =   0   'False
  46.          Italic          =   0   'False
  47.          Strikethrough   =   0   'False
  48.       EndProperty
  49.       PlaySoundEnter  =   0   'False
  50.       PlaySoundExit   =   0   'False
  51.       SoundEnter      =   ""
  52.       SoundExit       =   ""
  53.    End
  54.    Begin VB.CommandButton Command1 
  55.       Caption         =   "Show form 2"
  56.       Height          =   615
  57.       Left            =   4560
  58.       TabIndex        =   13
  59.       ToolTipText     =   "Command Control"
  60.       Top             =   75
  61.       Width           =   3735
  62.    End
  63.    Begin VB.ListBox List1 
  64.       Height          =   2400
  65.       Left            =   120
  66.       TabIndex        =   12
  67.       ToolTipText     =   "List Control"
  68.       Top             =   1635
  69.       Width           =   1935
  70.    End
  71.    Begin VB.CheckBox Check1 
  72.       Caption         =   "Check1"
  73.       Height          =   255
  74.       Index           =   0
  75.       Left            =   2160
  76.       TabIndex        =   11
  77.       ToolTipText     =   "Check Control"
  78.       Top             =   195
  79.       Width           =   975
  80.    End
  81.    Begin VB.OptionButton Option1 
  82.       Caption         =   "Option1"
  83.       Height          =   255
  84.       Left            =   3360
  85.       TabIndex        =   10
  86.       ToolTipText     =   "Option Control"
  87.       Top             =   195
  88.       Width           =   855
  89.    End
  90.    Begin VB.TextBox Text1 
  91.       Height          =   495
  92.       Left            =   2280
  93.       TabIndex        =   9
  94.       Text            =   "Text1"
  95.       ToolTipText     =   "Text Control"
  96.       Top             =   2595
  97.       Width           =   3015
  98.    End
  99.    Begin VB.ComboBox Combo1 
  100.       Height          =   315
  101.       Left            =   4800
  102.       TabIndex        =   8
  103.       Text            =   "Combo1"
  104.       ToolTipText     =   "Combo Control"
  105.       Top             =   915
  106.       Width           =   2535
  107.    End
  108.    Begin VB.FileListBox File1 
  109.       Height          =   1260
  110.       Left            =   5400
  111.       TabIndex        =   7
  112.       ToolTipText     =   "File Control "
  113.       Top             =   2595
  114.       Width           =   2895
  115.    End
  116.    Begin VB.PictureBox Picture1 
  117.       Height          =   855
  118.       Left            =   2280
  119.       ScaleHeight     =   795
  120.       ScaleWidth      =   5955
  121.       TabIndex        =   6
  122.       ToolTipText     =   $"Form1.frx":0000
  123.       Top             =   1635
  124.       Width           =   6015
  125.    End
  126.    Begin VB.DirListBox Dir1 
  127.       Height          =   765
  128.       Left            =   2280
  129.       TabIndex        =   5
  130.       ToolTipText     =   "Dir Control"
  131.       Top             =   3195
  132.       Width           =   3015
  133.    End
  134.    Begin VB.Frame Frame1 
  135.       Caption         =   "Frame1"
  136.       Height          =   1455
  137.       Left            =   120
  138.       TabIndex        =   4
  139.       ToolTipText     =   "Frame Control"
  140.       Top             =   90
  141.       Width           =   1935
  142.    End
  143.    Begin VB.CheckBox Check1 
  144.       Caption         =   "Check1"
  145.       Height          =   255
  146.       Index           =   1
  147.       Left            =   2160
  148.       TabIndex        =   3
  149.       ToolTipText     =   "Check Control"
  150.       Top             =   555
  151.       Width           =   975
  152.    End
  153.    Begin VB.CheckBox Check1 
  154.       Caption         =   "Check1"
  155.       Height          =   255
  156.       Index           =   2
  157.       Left            =   2160
  158.       TabIndex        =   2
  159.       ToolTipText     =   "Check Control"
  160.       Top             =   915
  161.       Width           =   975
  162.    End
  163.    Begin VB.CommandButton Command2 
  164.       Caption         =   "Exit"
  165.       Height          =   495
  166.       Left            =   5400
  167.       TabIndex        =   1
  168.       ToolTipText     =   "Exit Tool Tip Testing"
  169.       Top             =   4035
  170.       Width           =   2775
  171.    End
  172.    Begin VB.CommandButton Command3 
  173.       Caption         =   "Command3"
  174.       Height          =   495
  175.       Left            =   3780
  176.       TabIndex        =   0
  177.       Top             =   4065
  178.       Width           =   1215
  179.    End
  180.    Begin VB.Label Label1 
  181.       Caption         =   "Label1"
  182.       Height          =   255
  183.       Left            =   4200
  184.       TabIndex        =   14
  185.       ToolTipText     =   "label Control"
  186.       Top             =   915
  187.       Width           =   495
  188.    End
  189. Attribute VB_Name = "Form1"
  190. Attribute VB_GlobalNameSpace = False
  191. Attribute VB_Creatable = False
  192. Attribute VB_PredeclaredId = True
  193. Attribute VB_Exposed = False
  194. Private Sub BalloonMessage1_BalloonClick(Index As Integer, Caption As String)
  195. MsgBox "Button Index = " & Index & "   Button Caption = " & Caption
  196. End Sub
  197. Private Sub BalloonMessage1_BalloonClose()
  198. MsgBox "Button Index = " & Index & "   Button Caption = " & Caption
  199. End Sub
  200. Private Sub Command2_Click()
  201. Unload Me
  202. Set Form1 = Nothing
  203. End Sub
  204. Private Sub Command3_Click()
  205. BalloonMessage1.DisplayMessage 5000, 5000, "The MSDN Library is the essential reference for developers, with more than a gigabyte of technical programming information, including sample code, documentation, technical articles, the Microsoft Developer Knowledge Base, and anything else you might need to develop solutions that implement Microsoft technology.", "Sample Message", 1, " ", " ", "Button 1", "Button 2", 1
  206. End Sub
  207.